home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 7
/
FM Towns Free Software Collection 7.iso
/
data
/
nyan_e2
/
move.plt
< prev
next >
Wrap
Text File
|
1993-11-30
|
4KB
|
154 lines
/********** MOVE.PLT 巡回の設定を並び換える v1.04a用 **********/
var f2[700];
var b2[1400];
var dispdata[500];
var type[5];
%YesNo2{[MSG,CMD]
loop({
select(MSG,9999,{im({Yes});
},{ O K },{CMD; im({No});
},{ N G },{im({No});
});
});
};
%NewData{[DATA]
case(f2={},
{Yes},{
case(type={Forum} || type={LIB} || type={RTN},
{Yes},{ dispdata:=@head(DATA,{(});
f2:=DATA;
},{No},{dispdata:=@tail(DATA,{/});
f2:=DATA;
});
},{No},{
case(type={Forum} || type={LIB} || type={RTN},
{Yes},{ dispdata:=dispdata|{,}|@head(DATA,{(});
f2:=f2|{/}|DATA;
},{No},{dispdata:=dispdata|{,}|@tail(DATA,{/});
f2:=f2|{,}|DATA;
});
});
display(@getchar(type|{ },1,5)|{=>}|dispdata|{\n});
};
%SetData2{
b2:=b2|{,};
b2:=b2 |@xc({7b})|{ }|name|{ }|@xc({7d})|{,}
|@xc({7b})|{ NewData(}
|@xc({7b})|data|@xc({7d})
|{); im({Yes}); }|@xc({7d});
im(f2<>{});
};
%SetData{
loop({
case(type={Forum} || type={LIB} || type={RTN},
{Yes},{
%data @head(f2,{/});
%name @head(data,{(});
f2:=@body(f2,{/});
SetData2;
},{No},{
%data @head(f2,{,});
%name @tail(data,{/});
f2:=@body(f2,{,});
SetData2;
});
});
};
%BLib{
f2:=lib;
b2:={loop(}|@xc({7b})|
{select({ 巡回するライブラリを選択してください},999,{
YesNo2({ ライブラリは未設定でよろしいですか?},
{lib:={}}) }};
SetData;
b2:=b2|{,{ 設定終了 },{case(f2<>{},{Yes},{lib:=f2}); im({No}) });
footnote({}); }|@xc({7d})|{);};
loop({ case(lib={},{Yes},{im({})},{No},{im(b2)}); });
};
%BPatio{
f2:=patio;
b2:={loop(}|@xc({7b})|
{select({ 取得するパティオを選択してください},999,{
YesNo2({ パティオを受信しなくてよろしいですか?},
{patio:={}}) }};
SetData;
b2:=b2|{,{ 設定終了 },{case(f2<>{},{Yes},{patio:=f2}); im({No}) });
footnote({}); }|@xc({7d})|{);};
loop({ case(patio={},{Yes},{im({})},{No},{im(b2)}); });
};
%BHP{
f2:=hp;
b2:={loop(}|@xc({7b})|
{select({ 取得するHPを選択してください},999,{
YesNo2({ HPを受信しなくてよろしいですか?},{hp:={}}) }};
SetData;
b2:=b2|{,{ 設定終了 },{case(f2<>{},{Yes},{hp:=f2}); im({No}) });
footnote({}); }|@xc({7d})|{);};
loop({ case(hp={},{Yes},{im({})},{No},{im(b2)}); });
};
%BForum{
f2:=forum;
b2:={loop(}|@xc({7b})|
{select({ 取得するフォーラムを選択してください},999,{
YesNo2({ フォーラムを受信しなくてよろしいですか?},
{forum:={}}) }};
SetData;
b2:=b2|{,{ 設定終了 },{case(f2<>{},{Yes},{forum:=f2}); im({No}) });
footnote({}); }|@xc({7d})|{);};
loop({ case(forum={},{Yes},{im({})},{No},{im(b2)}); });
};
%BRTN{
f2:=rtn;
b2:={loop(}|@xc({7b})|
{select({ RTN巡回するフォーラムを選択してください},999,{
YesNo2({ RTN巡回しなくてよろしいですか?},{rtn:={}}) }};
SetData;
b2:=b2|{,{ 設定終了 },{case(f2<>{},{Yes},{rtn:=f2}); im({No}) });
footnote({}); }|@xc({7d})|{);};
loop({ case(rtn={},{Yes},{im({})},{No},{im(b2)}); });
};
type:={LIB};
%SelLib @BLib;
type:={Patio};
%SelPatio @BPatio;
type:={HP};
%SelHP @BHP;
type:={Forum};
%SelForum @BForum;
type:={RTN};
%SelRTN @BRTN;
loop({
f2:={};
b2:={};
dispdata:={};
select({ どのデータを変更しますか?},9999,{im({Yes});
},{ ライブラリの巡回を変更 },{type:={LIB};
SelLib;
case(lib,{},{display({LIB =>巡回しない\n})});
im({Yes});
},{ パティオの巡回を変更 },{type:={Patio};
SelPatio;
case(patio,{},{display({Patio=>巡回しない\n})});
im({Yes});
},{ HPの巡回を変更 },{type:={HP};
SelHP;
case(hp,{},{display({HP =>巡回しない\n})});
im({Yes});
},{ フォーラムの巡回を変更 },{type:={Forum};
SelForum;
case(forum,{},{display({Forum=>巡回しない\n})});
im({Yes});
},{ 巡回RTNの順路を変更 },{type:={RTN};
SelRTN;
case(rtn,{},{display({RTN =>巡回しない\n})});
im({Yes});
},{ メニューに戻る },{im({No});
});
});